10 KEYOFF:COLOR13,1,1:CLS:X=4:Y=5:D=0:VI=5:VP=0:DEFINTR:RA=0:R0=0:R1=0:R2=0:R3=0:FA=0:SCREEN1
20 GOSUB1300:GOSUB1390:GOSUB1390:GOSUB1330:GOTO90
30 REM  press space 
40 A$="x":A$=INKEY$:IFA$<>" "THENGOTO40
50 RETURN
60 REM  LIMPIA SCROLL 
70 FORK=0TO23:PRINT:NEXTK
80 RETURN
90 REM  CLAVE 
100 GOSUB60:LOCATE8,7:PRINT"Introduce la":PRINT:PRINT"            ":PRINT"             W":PRINT"             ":PRINT:PRINT"     XWWWWWWWWWWWWWWWWWY":PRINT"     V                ?V"
110 PRINT"     ZWWWWWWWWWWWWWWWWW[":LOCATE6,14:INPUT RESP$
120 IF RESP$="evamariasefue ?V" THEN PLAY"e9a5":LOCATE7,18:PRINT"Sigamos con ...":GOSUB30:ELSE PLAY"v12c9":CLS:GOTO100
130 REM  TWEELE II 
140 GOSUB60:COLOR15,1:LOCATE1,11:PRINT"N TWEEDLEDEE Y TWEEDLEDUM N":GOSUB30:GOSUB60:COLOR9,1:LOCATE0,0:PRINT:PRINT"WInteresante el poema Wdijo  Tweedledum.":PRINT"WAl contrario,fastuoso!Wdijo Tweedledee.W Te gusta la poe-sia?"
150 PRINT"WMmm...si...bueno Wcontesto  Alicia.":PRINT"WRecitale La Morsa y el Car-pintero W dijo Tweedledum   abrazando a su hermano.":PRINT"WMas rapido que deprisa Wcon-testo Tweedledee y comenzo a recitar:":PRINT:PRINT"El sol brillaba --":PRINT
160 REM
170 REM
180 PRINT"WPerdonaWinterrumpio AliciaW podrias decirme antes como sesale del bosque?":PRINT"Tweedledee sonrio gentilmentey empezo de nuevo:":GOSUB30:GOSUB60:CLS:PRINT"El sol brillaba sobre el mar,Brillaba todo lo que podia,  Cosa rara de observar"
190 PRINT"Pues era de noche,no de ___.":PRINT:INPUT"WVaya, con que palabra acaba-ba la estrofa";RESP$:IFRESP$="dia"THENPLAY"e9a5":PRINT"B Si,eso es! Seguimos...":GOTO 210:ELSEPLAY"c9":PRINT"\ No, no me suena..."
200 INPUT"Que palabra falta";RESP$:IFRESP$<>"dia"THENPRINT"\ No me convence...":GOSUB370:GOTO200:ELSEPLAY"e9a5":PRINT"B Si,esa era!"
210 PRINT:PRINT"La Morsa y el Carpintero,":PRINT"Juntos por la arenosa arena  Con mas hambre que el perro  de un ciego,":PRINT"Iban paseando sus _____.":PRINT
220 INPUT"Que palabra falta";RESP$:IFRESP$<>"penas"THENPRINT"\ No, esa no es...":GOSUB370:GOTO220:ELSEPLAY"e9a5":PRINT"B Que lista eres!"
230 PRINT:PRINT"Venid ostras,venid":PRINT"Dijo la Morsa resuelta":PRINT"Pasearemos y charlaremos,si,Con mi amigo el que hace     _______.":PRINT
240 INPUT"Que palabra falta";RESP$:IFRESP$<>"puertas"THENPRINT"\ No. Pista: las abres para  entrar.":GOSUB370:GOTO240:ELSEPLAY"e9a5":PRINT"B Si, perfecto!"
250 PRINT:PRINT"La prudente Ostra Mayor":PRINT"Se quedo solita en la cama,  Las mas jovenes sin temor    Del mar salieron sin _______."
260 INPUT"Que palabra falta";RESP$:IFRESP$<>"desgana"THENPRINT"\ Ummm, no.":GOSUB370:GOTO260:ELSEPLAY"e9a5":PRINT"B Me gusta, si!"
270 PRINT:PRINT"Despues de un buen paseo,    Las piernas a uno le pesan,  Y casualidad que encontraran Una roca con forma de ____.":PRINT
280 INPUT"Que palabra falta";RESP$:IFRESP$<>"mesa"THENPRINT"\ No,no me emociona.":GOSUB370:GOTO280:ELSEPLAY"e9a5":PRINT"B Que poetico!"
290 PRINT:PRINT"Llego la hora dijo la MorsaDe hablar de muchas cosas:  De zapatos, barcos y de lacreDe repollos y de reyes":PRINT"De porque el mar hierve      Y si los cerdos alas ______."
300 INPUT"Que palabra falta";RESP$:IFRESP$<>"tienen"THENPRINT"\ No me convence.":GOSUB370:GOTO300:ELSEPLAY"e9a5":PRINT"B Sorprendido me has!"
310 PRINT:PRINT"Las ostras no entendian nada Pero tenian muchisimo calor  La Morsa hunta una tostada   El Carpintero coge un _______"
320 INPUT"Que palabra falta";RESP$:IFRESP$<>"tenedor"THENPRINT"\ Falta dramatismo.":GOSUB370:GOTO320:ELSEPLAY"e9a5":PRINT"B Oh, marvelous!"
330 PRINT:PRINT"Cuanto siento esta trampa  Pregono la Morsa llorando    Y tapando boca con manga     Ostra tras ostra iba ________"
340 INPUT"Que palabra falta";RESP$:IFRESP$<>"tragando"THENPRINT"\ No, no y no!":GOSUB370:GOTO340:ELSEPLAY"e9a5":PRINT"B Que profundo!"
350 PRINT:PRINT"Es tarde, volved a casa    Dijo el Carpintero al aire   Pues entre El y la Morsa     No habian dejado a _____.":PRINT
360 INPUT"Que palabra falta";RESP$:IFRESP$<>"nadie"THENPRINT"\ Poco inspirado.":GOSUB370:GOTO360:ELSEPLAY"e9a5":PRINT"B Que magnifico colofon!.":GOSUB30:GOTO390
370 REM  restavida 
380 VI=VI-1:PLAY"c9":IFVI<1THENGOSUB60:GOTO1270:ELSE RETURN
390 REM -------- seguimos ---------
400 PRINT:PRINT"WA mi me gusta la Morsa WdijoAliciaW,al menos le dan pena las ostras.":PRINT"WPues comio mas que el Car-  pinteroWdijo TweedledeeW. Al contrario, se tapaba con la  manga para disimular.":PRINT"WEntonces prefiero al Carpin-tero."
410 PRINT"WPero El comio todas las que pudo Wdijo Tweedledum.":PRINT"WPues entonces,... los 2 me  caen mal!":PRINT:INPUT"Cual te cae a ti mejor(Morsa]Carpintero)";RESP$:IF RESP$="Carpintero"THENVI=VI+1:ELSEIFRESP$="joesg"THENPRINT";D":VI=VI+10
420 PRINT:PRINT"De repente Alicia oyo un rui-do que procedia del bosque.  WTranquila Wdijo TweedledeeW es el Rey Rojo.Ven, vamos a  verlo.":PRINT"La cogieron de la mano y la  llevaron hasta el Rey.Estaba acurrucado bajo un arbol,"
430 PRINT"roncando,con un gorro rojo dedormir puesto.":PRINT"WSabes que suena?  Wpregunto Tweedledee a Alicia.":PRINT"WEso es imposible de saber.  WPues en ti! De hecho,no eresmas que una cosa en sus pen- samientos."
440 PRINT"WSi el Rey despertara Wdijo  TweedledumW te apagarias comouna vela.":PRINT"WMentira!.Si soy solo eso,quesois vosotros entonces?":LOCATE14,11:PRINT"_":GOSUB30:LOCATE0,23:PRINT"WLo mismoWdijo Tweedledum.   WLo mismo,mismoWdijo Tweedle-dee
450 PRINT"WMentira,yo soy real! Wdijo  Alicia y empezo a llorar.    WLlorar no te va a hacer mas realWdijo TweedledeeW.No hay razon para llorar.":PRINT"WSi no fuera real, no podria llorar.":PRINT"WNo creeras de verdad que"
460 PRINT"esas lagrimas son realesWdijoTweedledum con desden.":PRINT"Alicia vio que la discusion  no llevaba a ninguna parte,  asi que cambio de tema.":PRINT"WCreen que podria llover?    Tweedledum abrio un paraguas y metio a su hermano dentro."
470 PRINT"WNo creo que aqui dentro vayaa lloverWdijo Tweedledum.":PRINT"WQuizas fuera,pero eso no nosincumbeWdijo Tweedledee.":GOSUB30:PRINT"Seran egoistaspenso Alicia y cuando pensaba despedirse  Tweedledum salio de debajo"
480 PRINT"del paraguas, la cogio del   brazo e indicando con el dedotembloroso un objeto roto en el suelo dijo:":PRINT"WEstas viendo eso?":PRINT
490 INPUT"De que objecto crees tu que  se trata";RESP$:IFRESP$<>"sonajero"THEN GOSUB370:PRINT"\NO.Pista:recuerda la cancionque Alicia les canto a ambos al final de la carga 1.":GOTO490:ELSE PLAY"e9a5":PRINT"B Buena memoria!":GOSUB30
500 PRINT:PRINT"WTranquilo, solo es un viejo sonajero roto.":PRINT"WLo sabia,lo sabia.Mi sonaje-ro,me lo rompio!Ademas,no eraviejo,era nuevecito,lo compreayer!":PRINT"Tweedledee se habia sentado ycerraba el paraguas sobre si mismo para esconderse."
510 PRINT"WSal de ahi! No hay opcion,  debemos batirnos en duelo.   WCierto,pero ella nos debe devestir.":PRINT"Los 2 se adentraron en la es-pesura y aparecieron de nuevocargados de tratos:cacerolas,mantas,bandejas,cuerdas..."
520 PRINT"WBueno, ahora debes ponernos todo esto encima Wdijo Tweed-ledum.":PRINT"Y asi lo hizo, antandoles ca-cerolas a la cabeza,bandejas como armaduras,etc, y ademas":GOSUB30:PRINT"Tweedledee, insistio en que  le pusiera una rueda en el"
530 PRINT"cuello para evitar que le   cortasen la cabeza.":PRINT"WNo deberiais luchar,y menos por un sonajero.":PRINT"WNo!Wdijo TweedledumW,es una cuestion de honor! Al menos  debemos luchar un poquitin.  Que hora es?":PRINT"W4:30Wdijo Tweedledee
540 PRINT"WBien,pelearemos hasta las 6 y luego a cenar.":PRINT"WTe recomiendo no acercarte  mucho a mi. Cuando lucho des-truyo todo lo que veo Wdijo  Tweedledee a Alicia.":PRINT"WPues yo destruyo lo que veo y lo que no veo tambienWdijo Tweedledum."
550 GOSUB30:PRINT"WSolo hay una espada Wdijo   TweedledumW asi que tendras  que usar el paraguas.Vaya se esta nublando.":PRINT"Alicia vio como se acercaba  una nube negra y vio como le salian alas.":PRINT
560 INPUT"De que crees que se trataba";RESP$:IFRESP$<>"cuervo"THENGOSUB370:PRINT"\ No. Pista: Alicia menciona este pajaro en la cancion.":GOTO560:ELSEPLAY"e9a4":PRINT"B Muy bien!."
570 PRINT:PRINT"WEs el cuervo!Wgrito aterradoTweedledum.":PRINT"Y los 2 hermanos se fueron   corriendo hasta desaparecer. Alicia se interno en el bos- que y se cobijo bajo un gran arbol. Con esas alas tan    grandes no pasara por aqui  penso."
580 PRINT"WQue viento! Va a provocar unhuracan con las alas.Anda,hayun chal volando.":GOSUB30
590 REM  LANAYAGUA 
600 GOSUB60:COLOR15,1:LOCATE6,11:PRINT" LANA Y AGUA ":GOSUB30:GOSUB60:COLOR7,1:LOCATE0,0:PRINT:PRINT"Alicia cogio el chal y vio   salir a la Reina Blanca del  bosque flotando, con los bra-zos abiertos.Se acerco a ellay la ayudo a ponerselo.":PRINT
610 INPUT"En ajedrez la Reina puede mo-verse como una Torre y como  que otra pieza";RESP$:IFRESP$<>"alfil"THENGOSUB370:PRINT"\ NO. Pista: pieza que repre-senta al clero.":GOTO610:ELSEPLAY"e9a4":PRINT"B Bien,acertaste.":PRINT
620 PRINT"WDeberia tener una doncella  para estas cosasWdijo Alicia.WEl puesto es tuyo.2 peniquespor semana y mermelada cual- quier otro dia.":PRINT"WCreo que no me interesa.    WLa mermelada es muy buena.  WAhora no me apetece, muchas gracias."
630 PRINT"WHoy no puedes probrarla de  todas formas.La regla es mer-melada ayer o manana, nunca  hoy.":PRINT
640 INPUT"Tal y como insinua la  Reina Blanca, cuando crees tu que  Alicia podria probar la mer- melada";RESP$:IFRESP$<>"nunca"THENGOSUB370:PRINT"\ No.":GOTO640:ELSEPLAY"e9a4":PRINT"B Bien.Que pillina la Reina.":PRINT
650 PRINT"WNo entiendo nada de lo que  me dice.":PRINT"WEs el efecto de vivir al    reves.Aunque tiene sus venta-jas,como la memoria en 2 di- recciones.":PRINT"WComo!? No se puede recordar cosas que no han sucedido."
660 PRINT"WClaro que si.Por ejemplo,el mensajero del Rey lleva en lacarcel 2 semanas y el juicio se hara este miercoles. Por  supuesto el crimen todavia nose ha cometido.":PRINT"WY si no hay crimen?":PRINT"WPues mejor para todos, no?"
670 PRINT"Ademas, tu tambien puedes re-cordar en las 2 direcciones, seguro.Me acuerdo que la se- mana que viene te dije mis 9 numeros favoritos...":GOSUB30:PRINT
680 INPUT"6,8,10,13,16,20,24,29,??     Recuerdas cual era el ultimo numero";RESP$:IFRESP$<>"34"THENGOSUB370:PRINT"\ No,que mala memoria!":GOTO680:ELSEPLAY"e9a4":PRINT"B Bien.":PRINT:PRINT"WY te conte el bicho al que  mas aversion tengo...":PRINT
690 INPUT"murcielago,perro,gallina,loboo raton";RESP$:IFRESP$<>"gallina"THENGOSUB370:PRINT"\ Eso no es lo que te dije.":GOTO690:ELSEPLAY"e9a4":PRINT"B Buena memoria.":PRINT:PRINT"WVes como tu tambien puedes. WNo acerte por esa... es im- posible q..."
700 PRINT"WNo hay nada imposible si te lo propones.":PRINT"WPor mucho que me lo propongalas cosas imposibles son im- posibles.":PRINT"WPues cuando yo tenia tu edaddedicaba media hora todos losdias a ello. Habia dias que  ya me habia creido hasta 6"
710 PRINT"cosas imposibles antes del   desayuno. Mi chal, se me volootra vez!":GOSUB30:PRINT:PRINT:PRINT:PRINT:PRINT
720 FORK=0TO20:LOCATEK,19:PRINT"   ":LOCATEK,20:PRINT" ":LOCATEK,21:PRINT" ":LOCATEK,22:PRINT"   ":NEXTK:PRINT
730 PRINT"El viento se llevo el chal y lo poso pasado un riachuelo. La Reina abrio los brazos y  fue volando tras el.":PRINT"WYa lo tengo!. Veras como me lo pongo yo solita!.":PRINT"Alicia, sonriendo, cruzo el  riachuelo tras la Reina.":PRINT
740 PRINT"            ***":PRINT:PRINT"WVen,acercate.Veee-een.Veeee.A Alicia la ultima palabra   que pronuncio la Reina le    parecio mas un balido que    otra cosa. De repente se dio cuenta que estaba frente al  mostrador de una tiendecita"
750 PRINT"oscura, atendida por una vie-ja oveja sentada en una mece-dora mirandola a traves de   sus anteojos mientras hacia  punto.":GOSUB30:PRINT"WQue deseas comprar?":PRINT"WTodavia no lo se. Permitame mirar un poco alrededor."
760 PRINT"WPuedes mirar delante y hacialos lados,si quieres,pero no podras mirar alrededor salvo que tengas ojos en la nuca.  Como no los tenia se conformocon recorrer la tienda. Las  estanterias estaban repletas de cosas, pero cuando se fi-"
780 PRINT"jaba en una, Esta quedaba va-cia!.Intento coger un objeto brillante pero cada vez que  alargaba la mano Este subia  al estante de arriba. Le voya seguir hasta el ultimo es- tante,haber entonces como se escapa penso Alicia.":PRINT
790 INPUT"Para sorpresa de Alicia,adon-de crees que fue a parar el  objeto";RESP$:IFRESP$<>"tejado"THENGOSUB370:PRINT"\ No.Pista: la parte mas altade la tienda en el exterior.":GOTO790:ELSEPLAY"e9a4":PRINT"B Acertaste.":PRINT
800 PRINT"Pues si,como si nada el obje-to se poso en el tejado atra-vesando el techo.":PRINT"WMe vas a marear con tanta   vuelta,chiquilla. Dime, sabesremar?Wle pregunto dandole 2 agujas de hacer punto.":PRINT"WUn poco, pero nunca lo he"
810 PRINT"hecho en tierra firme y con 2agujas.":PRINT"De repente la agujas se con- virtieron en remos y Alicia  se vio navegando en una bar- quita entre las verdes ori-  llas de un rio con la Oveja. WPluma,plumaW dijo Esta mien-tras Alicia remaba."
820 PRINT"Pluma? Que querra decir? sepregunto Alicia, y la Oveja  cogio otro par de agujas.":GOSUB30:PRINT"Y siguieron navegando placi- damente, entre juncos y arbo-les mecidos por la brisa en  la ribera del rio. La Oveja"
830 PRINT"cogio mas agujas y hacia cal-ceta con 14 pares a la vez.  Parece como un erizo penso Alicia.":PRINT"WAy,que bonitos los juncos.  Podriamos parar a coger unos pocos?":PRINT"WYo no puedo parar la barca. Deja de remar y parara sola."
840 PRINT"Alicia dejo de remar y con labarquita a la deriva fue re- cogiendo juncos. Estos al po-sarse en la barca derretiansecomo el hielo, pero Alicia nose daba cuenta intentando co-ger otro que le parecia mas  bonito que el anterior.":GOSUB30
850 PRINT"De pronto un remo quedo atas-cado bajo el agua.Alicia tirodel remo con fuerza,se golpeocon El en la barbilla y se   cayo del asiento. Pero en un pis pas volvio a sentarse.":PRINT:PRINT"Para describir la situacion  la Oveja usa una expresion"
860 PRINT"del argot marinero. Sabrias  cual de estas es?:":PRINT:PRINT"a)Dejastes tuerta la Anguila.b)Cogiste un buen Cangrejo.  c)Peinaste bien la Caballa.  d)Ya podemos plantar esparra-gos.":PRINT
870 INPUT"Que letra eliges";RESP$:IFRESP$<>"b"THENGOSUB370:PRINT"\ No.":GOTO870:ELSEPLAY"e9a4":PRINT"B Correcto!.":PRINT
880 PRINT"No lo veo.Con lo que me gus-tan a mi los cangregitospen-so Alicia.":PRINT"-Hay cangrejos por aqui?     WClaro, y muchas mas cosas.  Pero venga chiquilla,que vas a comprar?":PRINT"Alicia se asusto un poco al  ver como de improvisto los"
890 PRINT"remos,la barca y el rio desa-parecian en un momento,y que se encontraba de nuevo en la oscura tiendecita.":PRINT"WQuisiera comprar un huevo,  por favor. A cuanto estan?   W5 peniques 1 huevo o 2 peni-ques 2 huevos."
900 PRINT"W2 cuestan menos que 1 solo? WSi,pero si compras 2 tendrasque comerte ambos.":PRINT"WEntonces deme 1, por favor.":GOSUB30:PRINT"Alicia saco su monedero y de-jo el dinero sobre el mostra-dor y penso:Mejor solo 1,porsi estan malos."
910 PRINT"La Oveja guardo el dinero en una caja y le dijo a Alicia: WNunca pongo cosas en las ma-nos de otras personas. Debes de cogerlas por ti misma.    Y diciendo esto se fue a la  otra punta de la tienda y de-jo el huevo posado sobre un  estante."
920 PRINT"Porque no podra? se pregun-to Alicia avanzando entre me-sas y sillas al oscuro final de la tienda.El huevo pareciacada vez mas lejos. Vio una  silla con ramas.Que raro,ar-boles aqui.Y un arroyo.Nunca vi tienda mas rara.":PRINT
930 PRINT"             ***":GOSUB30:PRINT:PRINT"Y siguio,paso a paso,asombra-da de como las cosas con que tropezaba iban transformando-se en arboles, y sospechaba  que lo mismo ocurriria con elHuevo.":GOSUB30
940 REM  HUMPTY DUMPTY 
950 GOSUB60:COLOR15,1:LOCATE5,11:PRINT"I HUMPTY DUMPTY I":GOSUB30:GOSUB60:COLOR15,1:LOCATE0,0:PRINT:PRINT"Sin embargo,cada vez el huevose hacia mas y mas grande, y estando a escasos metros de  El,Alicia vio que tenia ojos y boca, y supo que no podia"
960 PRINT"ser otro que HUMPTY DUMPTY.  Estaba sentado sobre un muro tan estrecho que no se sabia como podia mantener el equi- librio.Miraba fijamente haciael lado contrario de donde   estaba Alicia, asi que penso que podria ser un adorno.":PRINT
970 PRINT"           B          IIo":PRINT"  III":PRINT"   Io":PRINT"   S":PRINT"  IUI":PRINT"  V"
980 PRINT"WEs igualito a un huevo!WdijoAlicia preparada para cogerloante la inminente caida.":GOSUB30:PRINT"WEs muy irritante que le lla-men a uno Huevo, mucho!W dijoHumtpty Dumpty mirando hacia otro lado.":PRINT"WSolo dije que lo parecia,"
990 PRINT"Sir, ademas hay huevos muy   bonitosWdijo Alicia intentan-do hacer un cumplido.":PRINT"WY hay gente con menos senti-do comun que un bebe.":PRINT"Alicia no supo que decir.Ade-mas, El seguia sin mirarla y su ultimo comentario iba di-"
1000 PRINT"rigido a un arbol cercano!.":GOSUB30:PRINT"Entonces le vino a la mente  la cancion de Humpty Dumpty yse puso a recitarla en voz   baja. Ayuda a Alicia a recor-darla...":GOSUB30:GOSUB60
1010 LOCATE0,5:PRINT"Humpty Dumpty subio a un ????":PRINT"Humpty Dumpty se cayo de ??  ":PRINT"Y ni todos los caballos ni   hombres del ???":PRINT:PRINT"Pudieron ponerlo donde ??????":X=0:Y=0:D=0:VP=0
1020 LOCATE0,18:INPUT"Que palabras crees que       faltan";RESP$
1030 IFRESP$="muro"ANDX=0THENX=1:PLAY"e9a5":LOCATE25,5:PRINT"MURO"
1040 IFRESP$="el"ANDY=0THENY=1:PLAY"e9a5":LOCATE25,7:PRINT"EL"
1050 IFRESP$="rey"ANDD=0THEND=1:PLAY"e9a5":LOCATE12,10:PRINT"REY"
1060 IFRESP$="estuvo"ANDVP=0THENVP=1:PLAY"e9a5":LOCATE23,12:PRINT"ESTUVO"
1070 IF X+Y+D+VP=4 THEN GOTO1090
1080 LOCATE8,19:PRINT"           ":GOTO1020
1090 LOCATE0,22:PRINT"B Muy bien!.Seguimos...":GOSUB30:GOSUB60:CLS:PRINT"WLa tercera linea es un poco larga,no?Wdijo Alicia en voz alta.":PRINT"WDeja de hablar sola y dime  tu nombre y ocupacionW dijo  Humpty Dumpty mirandola por  primera vez."
1100 PRINT"WMe llamo Alicia, pero...    WQue nombre tan tonto. Y que significa?":PRINT"WLos nombres deben tener un  significado?":PRINT"WClaro que si!. El mio hace  referencia a mi elegante y   apuesta forma. Sin embargo,  Tu, con ese nombre podrias"
1110 PRINT"ser cualquier cosa.":PRINT"WPorque esta usted sentado   ahi solo?":PRINT"WPorque no hay nadie conmigo,siguiente pregunta.":PRINT"WNo tiene miedo de caerse?":GOSUB30:PRINT"WEsa es facil. No! Ademas, sime cayera,cosa que dudo bas-"
1120 PRINT"tante,el REY me a prometido, si has oido bien,el mismisimoRey, me ha prometido que...  que...":PRINT"WEnviar todos sus caballos y hombres?":PRINT"WComo?! Has estado espiando  detras de las puertas y de   los arboles,o dentro de las"
1130 PRINT"chimeneas, sino no podrias   saberlo!.":PRINT"WLo lei en un libro.":PRINT"WAh,bueno.En uno de la histo-ria de Inglaterra, supongo.   ":GOSUB30:PRINT"HUMTY DUMPTY en el sitio de  Colchester (13 Jun 1648 - 27 Ago 1648) era:_"
1140 PRINT" a) Un gran Canon.":PRINT" b) Una orden en Clave.":PRINT" c) Una Maniobra Militar.     d) Una Campana grande.":PRINT" e) Un tipo de Bayoneta.":PRINT
1150 INPUT"Que letra escoges";RESP$:IFRESP$<>"a"THENPRINT"\ Fallaste.":GOSUB370:GOTO1150:ELSEPLAY"e9a5":PRINT"B Acertaste.HUMPTY DUMPTY de-fendia,sobre un muro, el ata-que a Colchester pero lo de- rribaron y luego no se pudo  levantar por su gran peso.
1160 PRINT"De ahi viene la cancion.     ":GOSUB30:PRINT"WQue sepas,que estas delante de alguien que ha hablado conel Rey.Quizas nunca te vuelvaa pasar algo asi. Pero para  que veas que no soy orgullosopuedes estrecharme la mano."
1170 PRINT"Ella le dio la mano casi de  puntillas mientras HUMPTY    DUMPTY sonreia.Tan amplia erasu sonrisa que Ella pensoun poco mas y pierde la cabeza.WPues si, sus caballos y sus hombres me levantarian en 1  minuto.Pero,de que estabamos"
1180 PRINT"hablando antes?":PRINT"WNo me acuerdoW dijo Alicia. WEntonces me toca preguntar ami.Dime,que edad dijiste que tenias?":GOSUB30:PRINT"          _"
1190 PRINT"a) Siete anos y medio.":PRINT"b) Casi 8.":PRINT"c) Todavia no te lo he dicho.d) A una dama no se le pre-  gunta nunca sobre su edad.":PRINT
1200 INPUT"Que letra eliges";RESP$:IFRESP$<>"c"THENPRINT"\ No es la mejor respuesta.":GOSUB370:GOTO1200:ELSEPLAY"e9a5":PRINT"B Si! Que astucia la tuya!":PRINT
1210 PRINT"WUmm, eres un digno oponente.WGracias, y tengo 7 y medio. WVaya,es una edad incomoda.Yote hubiera aconsejado quedar-te en los 7.":PRINT"WPero uno no puede hacer eso.WUno no,pero 2 si.Con la ayu-da necesaria podrias haberte quedado en 7."
1230 PRINT:PRINT"Y Alicia tratando de cambiar de tema exclamo:":PRINT"WQue cinturon tan bonito lle-va usted!":GOSUB30
1240 REM FIN DE CARGA2 
1250 GOSUB60:LOCATE0,8:COLOR8,1,1:PRINT" Has llegado al final de la    SEGUNDA CARGA del juego.":GOSUB1390:GOSUB1390:PRINT:PRINT:PRINT"CLAVE para la tercera carga:"
1260 PRINT:PRINT"   XWWWWWWWWWWWWWWWWWWY":PRINT"   V yosoylamorsa V":PRINT"   ZWWWWWWWWWWWWWWWWWW[":GOSUB30:GOSUB30:RUN
1270 REM  DREAM OVER 
1280 PRINT:PRINT:PRINT:PRINT"           ":PRINT"              ":PRINT"            ":PRINT"                ":PRINT"             "
1290 PRINT:PRINT"         O  V  E  R":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PLAY"v12bafbafagr5agrbafbafba3rgfre5re5rd1","v12cdcdcdcdr5cdrcdcdcdef3rbara6ra6ra1":GOSUB30:RUN
1300 REM ----- JOESGPRESENTA ------
1310 LOCATE0,7:PRINT"         ":PRINT"             ":PRINT"               ":PRINT"             ":PRINT"             ":PRINT"        ":PRINT"            PRESENTA:":PRINT:PRINT
1320 PRINT"Para el concurso de KONAMITO":PRINT"   de MSX-BASIC 2012-2013":RETURN
1330 REM  TITULO 
1340 GOSUB60
1350 PRINT"      -Carga2-":PRINT"      ":PRINT"      ":PRINT"          ":PRINT"                ":PRINT"                    ":PRINT"       A TRAVES DEL "
1360 PRINT"        ESPEJO Y DE ":PRINT"         LO QUE   ":PRINT"                ":PRINT"      XWYVXW XY":PRINT"       TWSVVV TS ":PRINT"      V VZVV VVV":PRINT"            ZW    "
1370 PRINT"       SE ENCONTRO":PRINT"         ALLI   ":PRINT"            ":PRINT"          ":PRINT"      ":PRINT"      ":PRINT"      "
1380 PRINT:PRINT"DDDDDD Pulsa Espacio DDDDDDD":GOSUB30:RETURN
1390 REM  MELODIA 
1400 PLAY"v14","v14","v10":PLAY"e10r10d10r10e10r10r10r10e10r10d10r10c10r10c10","c10r10r10r10c10r10r10r10c10r10r10r10f10r10e10","r10e10r10d10r10e10r10r10r10e10r10d10r10d10r10e10"
1410 PLAY"e10r10d10r10e10r10r10r10e10r10d10r10c10r10c10","C10R10R10R10C10R10R10R10C10R10R10R10E10R10C10","r10e10r10d10r10e10r10r10r10e10r10d10r10d10r10e10":RETURN
